program q2
	use swapper
	implicit none
	integer :: a(10), b(10)
	integer :: i 
	do i=1,10
		a(i)=i
		b(i)=i*10
		print *,a(i), b(i)
	end do

	call swap(a,b,10)
	do i=1,10
		print *,a(i), b(i)
	end do	
end program
